
forecast.list <- list()
forecast.ct.list <- list()

# All data for output calculation
forecast.list[[1]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"kitchensink$predicted")))
forecast.list[[2]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$mc$predicted")))
forecast.list[[3]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$md$predicted")))
forecast.list[[4]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$tc$predicted")))
forecast.list[[5]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$imc$predicted")))
forecast.list[[6]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$imd$predicted")))
forecast.list[[7]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$itc$predicted")))
forecast.list[[8]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"dmspe$theta1$predicted")))
forecast.list[[9]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"dmspe$theta0.9$predicted")))
forecast.list[[10]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"dmspe$theta0.5$predicted")))
forecast.list[[11]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"cenet$predicted")))
forecast.list[[12]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"Elasticnet$predicted")))
forecast.list[[13]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"LASSO$predicted")))
forecast.list[[14]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"Ridge$predicted")))
forecast.list[[15]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"pcr$firstcomp$predicted")))
forecast.list[[16]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"pcr$rsquare$predicted")))
forecast.list[[17]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"threepass$predicted")))
forecast.list[[18]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"3prfm$predicted")))
forecast.list[[19]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.kitchensink$predicted")))
forecast.list[[20]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$mc$predicted")))
forecast.list[[21]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$md$predicted")))
forecast.list[[22]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$tc$predicted")))
forecast.list[[23]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$imc$predicted")))
forecast.list[[24]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$imd$predicted")))
forecast.list[[25]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$itc$predicted")))
forecast.list[[26]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.dmspe$theta1$predicted")))
forecast.list[[27]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.dmspe$theta0.9$predicted")))
forecast.list[[28]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.dmspe$theta0.5$predicted")))
forecast.list[[29]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.cenet$predicted")))
forecast.list[[30]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.Elasticnet$predicted")))
forecast.list[[31]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.LASSO$predicted")))
forecast.list[[32]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.Ridge$predicted")))
forecast.list[[33]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.pcr$firstcomp$predicted")))
forecast.list[[34]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.pcr$rsquare$predicted")))
forecast.list[[35]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.threepass$predicted")))
forecast.list[[36]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.3prfm$predicted")))
forecast.list[[37]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"kitchensink$predicted.wls")))
forecast.list[[38]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$mc$predicted.wls")))
forecast.list[[39]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$md$predicted.wls")))
forecast.list[[40]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$tc$predicted.wls")))
forecast.list[[41]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$imc$predicted.wls")))
forecast.list[[42]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$imd$predicted.wls")))
forecast.list[[43]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"combination$itc$predicted.wls")))
forecast.list[[44]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"dmspe$theta1$predicted.wls")))
forecast.list[[45]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"dmspe$theta0.9$predicted.wls")))
forecast.list[[46]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"dmspe$theta0.5$predicted.wls")))
forecast.list[[47]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"cenet$predicted.wls")))
forecast.list[[48]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"Elasticnet$predicted.wls")))
forecast.list[[49]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"LASSO$predicted.wls")))
forecast.list[[50]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"Ridge$predicted.wls")))
forecast.list[[51]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"pcr$firstcomp$predicted.wls")))
forecast.list[[52]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"pcr$rsquare$predicted.wls")))
forecast.list[[53]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"threepass$predicted.wls")))
forecast.list[[54]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"3prfm$predicted.wls")))
forecast.list[[55]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.kitchensink$predicted.wls")))
forecast.list[[56]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$mc$predicted.wls")))
forecast.list[[57]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$md$predicted.wls")))
forecast.list[[58]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$tc$predicted.wls")))
forecast.list[[59]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$imc$predicted.wls")))
forecast.list[[60]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$imd$predicted.wls")))
forecast.list[[61]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.combination$itc$predicted.wls")))
forecast.list[[62]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.dmspe$theta1$predicted.wls")))
forecast.list[[63]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.dmspe$theta0.9$predicted.wls")))
forecast.list[[64]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.dmspe$theta0.5$predicted.wls")))
forecast.list[[65]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.cenet$predicted.wls")))
forecast.list[[66]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.Elasticnet$predicted.wls")))
forecast.list[[67]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.LASSO$predicted.wls")))
forecast.list[[68]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.Ridge$predicted.wls")))
forecast.list[[69]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.pcr$firstcomp$predicted.wls")))
forecast.list[[70]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.pcr$rsquare$predicted.wls")))
forecast.list[[71]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.threepass$predicted.wls")))
forecast.list[[72]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.3prfm$predicted.wls")))
forecast.list[[73]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"kitchensink$historical.mean")))
forecast.list[[74]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"kitchensink$actual.erp")))
forecast.list[[75]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"kitchensink$spe.mean")))
forecast.list[[76]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.kitchensink$historical.mean")))
forecast.list[[77]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"util.kitchensink$actual.erp")))

# All data for output calculation
forecast.ct.list[[1]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.kitchensink$predicted")))
forecast.ct.list[[2]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$mc$predicted")))
forecast.ct.list[[3]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$md$predicted")))
forecast.ct.list[[4]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$tc$predicted")))
forecast.ct.list[[5]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$imc$predicted")))
forecast.ct.list[[6]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$imd$predicted")))
forecast.ct.list[[7]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$itc$predicted")))
forecast.ct.list[[8]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.dmspe$theta1$predicted")))
forecast.ct.list[[9]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.dmspe$theta0.9$predicted")))
forecast.ct.list[[10]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.dmspe$theta0.5$predicted")))
forecast.ct.list[[11]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.cenet$predicted")))
forecast.ct.list[[12]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.Elasticnet$predicted")))
forecast.ct.list[[13]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.LASSO$predicted")))
forecast.ct.list[[14]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.Ridge$predicted")))
forecast.ct.list[[15]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.pcr$firstcomp$predicted")))
forecast.ct.list[[16]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.pcr$rsquare$predicted")))
forecast.ct.list[[17]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.threepass$predicted")))
forecast.ct.list[[18]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.3prfm$predicted")))
forecast.ct.list[[19]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.kitchensink$predicted")))
forecast.ct.list[[20]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$mc$predicted")))
forecast.ct.list[[21]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$md$predicted")))
forecast.ct.list[[22]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$tc$predicted")))
forecast.ct.list[[23]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$imc$predicted")))
forecast.ct.list[[24]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$imd$predicted")))
forecast.ct.list[[25]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$itc$predicted")))
forecast.ct.list[[26]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.dmspe$theta1$predicted")))
forecast.ct.list[[27]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.dmspe$theta0.9$predicted")))
forecast.ct.list[[28]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.dmspe$theta0.5$predicted")))
forecast.ct.list[[29]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.cenet$predicted")))
forecast.ct.list[[30]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.Elasticnet$predicted")))
forecast.ct.list[[31]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.LASSO$predicted")))
forecast.ct.list[[32]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.Ridge$predicted")))
forecast.ct.list[[33]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.pcr$firstcomp$predicted")))
forecast.ct.list[[34]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.pcr$rsquare$predicted")))
forecast.ct.list[[35]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.threepass$predicted")))
forecast.ct.list[[36]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.3prfm$predicted")))
forecast.ct.list[[37]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.kitchensink$predicted.wls")))
forecast.ct.list[[38]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$mc$predicted.wls")))
forecast.ct.list[[39]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$md$predicted.wls")))
forecast.ct.list[[40]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$tc$predicted.wls")))
forecast.ct.list[[41]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$imc$predicted.wls")))
forecast.ct.list[[42]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$imd$predicted.wls")))
forecast.ct.list[[43]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.combination$itc$predicted.wls")))
forecast.ct.list[[44]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.dmspe$theta1$predicted.wls")))
forecast.ct.list[[45]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.dmspe$theta0.9$predicted.wls")))
forecast.ct.list[[46]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.dmspe$theta0.5$predicted.wls")))
forecast.ct.list[[47]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.cenet$predicted.wls")))
forecast.ct.list[[48]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.Elasticnet$predicted.wls")))
forecast.ct.list[[49]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.LASSO$predicted.wls")))
forecast.ct.list[[50]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.Ridge$predicted.wls")))
forecast.ct.list[[51]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.pcr$firstcomp$predicted.wls")))
forecast.ct.list[[52]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.pcr$rsquare$predicted.wls")))
forecast.ct.list[[53]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.threepass$predicted.wls")))
forecast.ct.list[[54]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.3prfm$predicted.wls")))
forecast.ct.list[[55]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.kitchensink$predicted.wls")))
forecast.ct.list[[56]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$mc$predicted.wls")))
forecast.ct.list[[57]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$md$predicted.wls")))
forecast.ct.list[[58]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$tc$predicted.wls")))
forecast.ct.list[[59]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$imc$predicted.wls")))
forecast.ct.list[[60]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$imd$predicted.wls")))
forecast.ct.list[[61]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.combination$itc$predicted.wls")))
forecast.ct.list[[62]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.dmspe$theta1$predicted.wls")))
forecast.ct.list[[63]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.dmspe$theta0.9$predicted.wls")))
forecast.ct.list[[64]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.dmspe$theta0.5$predicted.wls")))
forecast.ct.list[[65]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.cenet$predicted.wls")))
forecast.ct.list[[66]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.Elasticnet$predicted.wls")))
forecast.ct.list[[67]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.LASSO$predicted.wls")))
forecast.ct.list[[68]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.Ridge$predicted.wls")))
forecast.ct.list[[69]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.pcr$firstcomp$predicted.wls")))
forecast.ct.list[[70]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.pcr$rsquare$predicted.wls")))
forecast.ct.list[[71]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.threepass$predicted.wls")))
forecast.ct.list[[72]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.3prfm$predicted.wls")))
forecast.ct.list[[73]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.kitchensink$historical.mean")))
forecast.ct.list[[74]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.kitchensink$actual.erp")))
forecast.ct.list[[75]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.kitchensink$spe.mean")))
forecast.ct.list[[76]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.kitchensink$historical.mean")))
forecast.ct.list[[77]] <- eval(parse(text=stringr::str_c(freq.component,start.year.is,"ct.util.kitchensink$actual.erp")))
